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0001 MODULE OPCSCANCEL ( 

Rong LANGUAGE (BLI$$32), 

000 IDENT = ‘v04-000' 

0008 a 

Bone ORR RARER EERE REAR R TERRE EAE EAE EAE EEE AAA HEAT EEA AAEEEE AREER Ee 
'@ 

0008 'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

900 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

poi? - ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
LY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


* 
® 
& 
* 
* 
* 
® 
i C E » 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
® 
v 
* 
* 
& 
e 


't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION. 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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lee 
FACILITY: 
OPCOM 
09 ABSTRACT: 
00 i This module contains the specialized logic to service 
: 4 a particular type of request sent by a user to OPCOM. 
2 te : Environment: 
$1 0041 VAX/VMS operating system. 
:? Go4§ : Author: 
a7 ez ! " Steven T. Jeffreys 
+4 G04? ! Creation date: 
49 0049 ! March 10, 1981 
2 9051 Revision history: 
3g b088 i v03-001 CWH3001 Cw Hobbs ; 30-Jul-1983 
54 Boe : Various and sundry things to make OPCOM distributed 
2 BRe2 across the cluster. 
57 0089 i VO2-002 STJ0117 Steven T. Jeffreys 05-Sep-1981 
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0038 : Added support for alternate cancellation message. 

005 : This message indicates that the request was satisfied, 

Bey and canceled by the requestor. 

06¢ i 

06 lee 

064 0 

Ree : BEGIN ! Start of CANCEL 
bos? 1 LIBRARY ‘SYSSLIBRARY: LIB. LS2*s 

Roos ’ LIBRARY ‘LIB$:OPCOMLIB'; 
$090 1 FORWARD ROUTIN = 
0071 1 CANCEL_HANDLER : NOVALUE, 

it ! CANCEL CLM HANDLER : NOVALUE; 
0074 1 BUILTIN 

0075 1 INSQUE, ! Insert entry onto a queue 

Bore : REMQUE; ' Remove entry from a queue 
0078 1 EXTERNAL oy She 

0079 1 CHECK_REQUEST, ! Common sanity checks 

0080 1 CLUSMSG ~CONY CLA RQCB, ! Convert cluster message to RQCB 
0081 1 CLUSMSG_RQCB" SEND, ' Send RQCB to remote nodes 

pORs 1 DEALLOCATE nace : NOVALUE, ' Dispose of an 

0083 1 7) ! Format the Sanaee into the log file 
0084 1 FORMAT MESSAGE, ! Format a message 
0085 1 LOG_MESSAGE, ! Write a message to a logfile 
0086 1 NOTIFY Liste OPERATORS, ' Just Like it says 
ain : SEND_REPLY ! Send a reply to the requestor 
0089 1 EXTERNAL 
Boot : OCD_VECTOR : VECTOR; ! OCD List headers 
009 1 EXTERNAL mak’ tree 
0093 1 SCOPE, ' Maximum scope value 
0094 1 MINT SCOPE; ! Minimum scope value 
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GLOBAL ROUTINE CANCEL_HANDLER (BUFFER_DESC) : NOVALUE = 


'4¢ 
' Functional description: 


36 0095 1 ; 
7 B098 1 : 
98 097 1 : 
99 0098 1 3 
100 0099 1! i : ; : 
13) B99 : This routine is the handler for all CANCEL messages received by OPCOM. ‘ 
108 Bios 1! 3 
104 0103 1°! Input: : 
105 0106 1! : 3 
106 0105 1! BUFFER_DESC : The address of a quatvere buffer descriptor that : 
04 b109 : describes the buffer containing the message. : 
109 0108 1°! Implicit Input: 3 
110 0109 1! $ 
111 0110 1! None. $ 
36 0111 +1! : 
11 Bii§ 1 ! Output: 3 
114 0113 1! : 
115 0114 1! None. : 
116 0115 1! F 
117 0116 1°! Implict output: : 
118 0117 1! ; 
119 0118 1! Some accounting data will be updated 3 
120 0119 1! to reflect the receipt of the message. : 
121 0120 1! 3 
122 0121 1 ! Side effects: 3 
123 Bis¢ 1! $ 
124 O125 1} None. : 
125 0124 1! ; 
126 0125 1 ! Routine value: : 
127 0126 1! : 
128 0127 1! None. | 2 
4 0128 1 !-- : 
130 at 1 : 
13) Bias 3 BEGIN ! Start of CANCEL_HANDLER : 
133 8136 2 MAP ; 
134 0133 2 BUF FER_DESC : $ref_bblock; 
135 0134 $ 
136 0135 LOCAL 
137 0136 § : 
138 0137 MESSAGE_VECTOR : VECTOR (5,LONG], ! Message info 
139 0138 RQCB : $ref_bblock, ' RQCB data structure 
140 0139 MCB : $ref_bblock, ! MCB data structure 
141 0140 OcD : $ref_bblock, ! OCD data structure 
Hb | 0141 RQST_RQCB : $ref_bblock, ' Request RQCB : 
: ‘ ' Count o nN an is 
144 O13 3 ODT INDEX LONG i fadex into OCD VECTOR. 
: " ! Index into _VECT y 
ac? gree § Rost COUNT : LONG. Count of requests in a list 
: ‘ ! Message code 
147 ace F OUND : LONG, ; Beaten 
148 014 STATUS : LONG; 
149 0148 
150 0149 : é 
151 0150 ' Check request for minimum amount of data. 
152 0151 2! 
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I aaa tat COSCSW_LENGTH] LSS (OPCSK_COMHDRSIZ + OPCSK_CANCEL_MIN_SIZE) 
RETURN; 
: Do some sanity checking. 
e ge CHECK_REQUEST (.BUFFER_DESC, RQCB) 
RETURN; 
Check for a reply mailbox. If none specified, then ignore the 


cancelation me | pe. as it would be impossible to locate the correct 
request without it. 


4 
(2) 


ee ee ee ee 


ROCB CROCB_W_REPLYMBX] EQL 0 | 
RETURN; | 
See if the requestor is issuing this request on another's behalf. | 
If so, and the requestor does not have the privilege to do so, 

then dismiss the request. 


| 
| 
-RQCB CROCB_L_SENDERUIC] NEQ .RQCB CRQCB_L_UIC) | 
| 
| 


ae 
HEN 


ed et mm me 


F 
HEN 
r —— -$bblock CRQCB CRQCB_L_PRIVMASK1], PRVS$V_OPER]) 
IF NOT ((.$bblock CRQCB CRQCB_L_SENDERUIC], 2,0,16,0) EQL .$bblock CRQCB CRQCB_L_UIC], 2,0,16,0)) AN 


2, 
ten (.$bblock CRQCB CRQCB"L-PRIVMASK1], PRv$v_GROUPJ)) 
BEGIN 
MESSAGE _VECTO 


R 
MESSAGE- VECTOR 
FORMAT MESSAGE 
SEND_REPLY (.RQ 
DEALCOCATE_RQCB 
RETURN; 


OPC$_ILLRQST; 


RQCB); 


! Locate the request in the database. The entire database must be 
searched, as the responsiblitly for the request may have been bounced 

around by the operators, and the request may not be in an obvious place. 

When the search is done, RQST_RQCB will contain the address of the 

original request RQCB if it was found. 


1 
1 
! 
1 
| 
i 
1 
FOUND = FALSE; 
OCD_INDEX = MAX SCOPE; 
WHICE (NOT .FOURD) AND (.OCD_INDEX GEQ MIN_SCOPE) DO 

BEGIN 

! Scan the OCD List for each class of operator 

OCD = .OCD_VECTOR [(.OCD_INDEX - 1) * 2); ' Get first OCD address 


OCD_COUNT = .OCD VECTOR [(.OCD_INDEX - 1) * 2 + 1); ! Get # of OCDs in the List 
sae Oy -FOUNB) AND (.OCD_COUNT GTR 0) DO 
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i v04-000 
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CB address 


Con 
= 
=“ 
1} 
oO 
aon 
oo 
oO 


TJ; ! Get # of requests 
KJ; ! Get first RQST_RQ 
NT GTR 0) DO 


Check the reply mailbox and the requestid for equality. 


F (,.RQCB CROCB_W_REPLYMBX] EQL .RQST_ROCB CROCB_W_REPLYMBX]) : | 
ND (-ROCB ROCB-L"ROSTID) EQL .RQST_ROCB CROCB_L~ROSTIDI) 


This is it. 
Note that we found it 
Save OCD address 


BEG! 
FOUND = TRUE; 
RQCB CROCB_L_OCD] = .OCD; 


Not found. Try the next RQCB 
Decrement request count 
Get address of next RQCB 


T = .RQST_ COUNT = 1 


OUN ; 
QCB = .ROST_ROCB CROCB/L_FLINK); 


RQST_C 
RQST_R 
END; 
END; 
OCD_COUNT = _.OCD_COUNT - 1; 
OcD™= .OCD COCD_C_FLINKI; 


END; 
een = .OCD_INDEX = 1; Try next orcrator class 
! . | 
Finish up. 
if NOT .FOUND 
THEN 

BEGIN 

Get set to tell the requestor the bad news. 

MESSAGE_VECTOR CO] = OPCS$_NOSUCHRQST; 

MESSAGE VECTOR [1] = 0; 

EOAAAT RE SSAGE (.RQCB, MESSAGE_VECTOR); 


ELSE 
BEGIN 


i Inform all interested operators that the request is canceled. 
Log the cancelation notice, and remove the request from the data base. 


MESSAGE_VECTOR CO) = OPC$_RQSTCAN; ' Set message code 
IF ,Sdblock CRQCB CROCB_L~RQ_OPTIONS], OPC$V_RQSTDONE) 


Decreme,< OCD count 
Get address of next OCD 
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7 MESSAGE VECTOR CO) = OPC$_RQSTDONE; ' Set alternate status code 

8 MESSAGE_VECTOR fi = 0; ! Set # of message arguements 

9 MESSAGE VECTOR (2) = -RQST_RQCB CRQCB_L_RQSTNUMJ;! Set message arguement 

0 DEALLOCATE_RQCB (. ); ! Dispose of the request control block 
1 REMQUE (.ROST ee ROCB); ! Remove the request from the database 

g é OCD = .RQST_ROCB Roce. 0c); i Get the OCD address 
OCD COCD Ww RQSTCOUNT) = OCD fOCcD_wW_RQSTCOUNT) - 1; 
65 364 FORMAT MESSAGE (.RQCB, MESSAGE_VECTOR) ; 
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3 267 0 66 ! Send it to everyone else in the cluster. Inform all interested operators that the | 
3 re 8 44 i request is canceled. Log the cancelation notice. 

is em 0269 éLUSMSG RQCB_SEND ( CLM__CANCEL, .RQCB); 

: 271 0270 NOTIFY _CISTED_ BPERATORS “< .ROCB); ' Notify the interested operators | 
3 a 0271 LOG_MESSAGE (7RQCB); i Log the event 

3s (af 0 i EN DF 

3 276 027 

; 275 0274 ! Send the message to the requestor. 

Ps 276 0275 i | 
s er 0 26 2 SEND REPLY (.RQCB); 
; 78 9 a4 ‘ DEALCOCATE_RQCB (.RQCB); 

; 280 0279 1 END; ! End of CANCEL_HANDLER 


TRN CHECK_REQUEST, CLUSMSG_ CONV_CLM_RQCB 
XTRN CLUSMSG G Races 
~EXTRN DEALLOCKTE 
~EXTRN 1°¢ LOG Eka 8 ORMAT MESSAGE 
~EXTRN G RESSAGE, NOTIFY _LTSTED_OPERATORS 

eEXTRN CPeD REPLY VECTOR 
*EXTRN max SCOPE. “MIN, SCOPE | 


-PSECT S$CODES,NOWRT,2 


on 
nat 


| 
j 
{ 
01FC 00000 .ENTR¥ CANCEL_HANDLER, Save R2,R3,R4,R5,R6,R7.R8  ; 0095) 
58 00006 CF 9E 00002 HOVAB FORMATMESSAGE, RB : | 
5E 18 C2 00007 SUBL2 #24, S : | 
3F 0% BC B1 OOOOA CMPW @BUFFER_DESC, #63 + 0152 
01 1A OOO0E BGTRU 18 : | 
04 00010 RET : 
SE DD 00011 1$ PUSHL SP > 0158 
04 AC DD 00013 PUSHL BUFFER ESC : 
0000G CF 02 8B 00016 CALLS ERE CK REQUEST 3 
01 50 £8 00018 BLBS 5° 2$ F 
04 0001E RET : 
52 6E DO OOOIF 28: MOVL _-RQCB, R2 > 0166 
2E A2 BS 00022 TSTW 46 (R2) : 
01 12 00025 BNEQ 3$ : 
94 00087 RET ; | 
51 38 =A2 SE 00028 3$: MOVAB 56(R2), R1 : 0174 | 
50 68 A2 GE 900¢C MOVAB 104(R25, RO F | 
60 61 D1 00030 CMPL (R11), (RO) : 
2F 13 00033 BEQL S$ : 
| 2A 32,2 02 €0 00035 BBS #2, 50(R2), 5$ : 0176) 
02 Ad 02 Al BI 0005A CMPw = 2(R1),,_ 2(RO) ; 0178 | 
04 12 0003F BNEQ 4$ : | 
1F 31 a2. «EB 00041 BLBS 49(R2) 5$ : 0179 | 
04 AE 0005807C BF DO 00045 4s: MOVL #360572, MESSAGE _VECTOR : O18¢ | 
AE 04 00040 CLRL MESSAGE. VECTOR+ : 0183 | 
| 9F 0005 PUSHAB MESSAGE— “VECTOR ; 0184 | 
DD 0005 PUSHL R 3 
FB 0005 CALLS #2, FORMAT_MESSAGE : 
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So 
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0000G CF 
70 
000000006 &F 
5 
53 
57 
38 
56 
54 
22 
2E «AG 
64 = AG 
55 
24h 
54 
53 
15 
04 AE 
68 
04 AE 
08 
04 AE 
OC AE 
0000G CF 
$8 
5 
68 


000000006 


2E 
64 


00058044 
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04 


00058084 
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000581DB 
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D 

X_SCOPE, OCD_INDEX 

_INDEX, #MIN_SCOPE 

OCD_INDEX, R1 

_VECTOR= “ath 1] 
R1] 

11$ 
UNT 


R2), 46(RQST_RQCB) 
0(R2), 100(RQST_RQCB) 
, FOUND 
6, 36(R2) 
Rost. CROCB) , ROST_RQCB 


CD_COUNT 
(OCB), OCD 


OCD_INDEX 


Sheehan eetegeeeecoros: wovese™. 


436 BOSt6. SRE SSAGE _VECTOR 
MESSAGE_VECTOR+4~ 

MESSAGE - ~VECTOR 

me FORMAT_MESSAGE 

#360580, MESSAGE _VECTOR 


8 
36093 d5,' ne Ssace VECTOR 
MESSAGE VECTOR+4~ 


= 


NiStROST. VROCB) MESSAGE _VECTOR+8 


R2 

#1 DEALLOCATE RQCB 
(ROST ROCB 
36 (RST ore té) ” ocd 
MESSAGE _ VECTOR 


#2, FORMAT_MESSAGE 
ye 


e 
(2) | 


, OCD 
» OCD_COUNT 
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61 


f 
| OPCSCANCEL 
_vos= 

| 
| 
| 


; Routine Size: 


319 bytes, 


00006 
00006 
00006 
00006 
00006 


Routine 


1 
1b-Sep-1 
14-Se 

7E 1 CE QO1IA 
CF 83 FB a0110 
6E DD 001 
CF 01 FB 00124 
gf DD 00129 
CF 1 FB 001 
6— DD 001350 15$: 
CF 01 FB 4 $ 
6— DD 001 
CF 01 FB 00139 16$: 
04 0015€ 
Base: $CODE$ + 0000 


:50:36 


, (SP) 
+ CLUSMSG_RQCB_SEND 
#1, NOTIFY_LISTED_OPERATORS 


#1 
#1 


#1, 


VAX=11 
ISKSVM HA 


LOG_MESSAGE 
SEND_REPLY 


DEALLOCATE_ROCB 
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GLOBAL ROUTINE CANCEL_CLM_HANDLER (BUFFER_DESC : Sref_bblock, CLM : $ref_bblock, LEN) : NOVALUE = 


'e4 
! Functional description: 


This routine is the handler for all CANCEL messages received by OPCOM from other nodes. 


Input: 
BUFFER_DESC - pointer to message from remote node, including SSNDOPR header 
CLM - ointer to CLMRQCB structure 
LEN = ength of LEN 
Implicit Input: 
None. 
Output: 
None. 
Implict output: 


Some accounting data will be updated 
to reflect the receipt of the message. 


Side effects: 
None. 
Routine value: 


None. 
BEGIN ! Start of CANCEL_CLM_HANDLER 
LOCAL 
RQCB : $ref_bblock, ' RQCB data structure 
MCB : $Sref_bblock, ! MCB data structure 
ocd : $Sref_bblock, ! OCD data structure 
RQST_ROCB : Sref_bblock, ' Request RQCB ; 
OCD_TOUNT : LONG, ' Count of OCD in an OCD List 
OCD_ INDEX : LONG, ! Index into OCD_VECTOR | 
RQST_COUNT : LONG, ' Count of requests in a List 
MESSAGE : LONG, ' Message code 
FOUND : LONG, ! Boolean 
STATUS : LONG; 


i Check the version number of the message. If the message is from any other version, 
simply ignore it. 


if ctm CCLM_B_DS_VERSION) NEQ CLMRQCB_K_DS_VERSION 
RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID *CLM__CANCEL mismatch"); 
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' 

Allocate an RQCB and convert the message RQCB into the new ROQCB 


iF NOT CLUSMSG_CONV_CLM_RQCB (.CLM, RQCB) 
RETURN DUMP_LOG_FILE (.BUFFER_DESC, ascid_INVALIDRQCB); 


Locate the request in the database. The entire database must be 
searched, as the responsiblitly for the request may have been bounced 
around by the operators, and the request may not be in an obvious place. 
When the search is done, RQST_RQCB aatt contain the address of the 
original request RQCB if it was found. 


FOUND = FALSE: 

OCD_INDEX = SCOPE; 

WHITE ST FOUR) AND (.OCD_INDEX GEQ MIN_SCOPE) DO 
' 


Scan the OCD List for each class of nae: 


OCD = .OCcD VECTOR +E OCD_INDEX - ate * ' Get first OCD address 
ocd COUN NT = .OCD VECTOR [(.0CD_1 he *2¢ 1); ! Get # of OCDs in the List 
WHICE (NOT FOUND) AND (.0CD_ COUNT’ 0) dO 
grein 
Scan the request List for each OCD. 
ROST COUNT = .OCD COCD_W_RQSTCOUNT); ' Get # of requests in List 
RQST-RQCB = .OCD COCD- -t “ROSTFLINKI; ! Get first RQST_RQCB address 


WHILE Ecuet -FOUND) AND7(TRGST_COUNT GTR 0) DO 
° 


Check the reply mailbox and the requestid for equality. 


IF ‘° RQCB CROCB_W_REPLYMBX] EQL .RQST_RQCB CRQCB_W_REPLYMBX)) 
+ my -ROCB CROCB-L-RQSTIDJ EQL -RQST -ROCB CROCB_L-ROSTIDI) 


This is it. 
Note that we found it 
Save OCD address 


Shey 

FOUND RUE; 

RQCB Croce. L_OCD] = .OCD; 
END 


Not found. Try the next RQCB 
Decrement request count 
Get address of next RQCB 


BEGIN 
RQST_COUNT = .RQST_C - 1; 
RQST_ROQCB = ROST "Roce. trace L_FLINK); 


END; 
OcD_ COUNT = -OCD COUNT - 
ocdD™= .OcD Coco_C PU INKD; 


END; 
OCD_INDEX = .OCD_INDEX = 1; 
END; 


Decrement OCD count 
Get address of next OCD 


Try next operator class 


Finish up. 
if NOT .FOUND 
THEN 


LAS 


-o 


Of 


-——- 
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"v04-600 1e-8ep-1984 12:50:36 DISKSVMEMASTERSCOPCOM.SRCICANCEL.B3204%° (3). 

; 0394 BEGIN | 
: 3 8 95 : 
3 38 8 39 Should not be here 
; rts 8 38 DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘request to cancel not found"); 

(i 40 0400 2 ELSE | 
; 40 0401 BEGIN 
; 404 Bebe ' 

: 405 040 ! Inform all interested operators that the request is canceled. 
; rts Bebe Log the cancelation notice, and release the ROCB from the remote node. 
: 40 0406 NOTIFY_LISTED_OPERATORS (.RQCB); ! Notify the interested operators 
; 409 0407 LOG_MESSAGE ([RQCB); ! Log the event 
: 410 0408 DEACLOCATE_RQCB (.RQCB); | 
: aig 0419 3 ! Remove the request from the data base. | 
: 414 Beis 3 REMQUE (.RQST RQCB, RQCB); ' Remove the request from the database 
; 615 041 3 OCD = .RQST_ROCB CROCB_L_OCD]; ' Get the OCD address | 
: 416 0415 3 OCD COCD_W_ROSTCOUNT) = 70CD CocD_w_RaSTCOUNT) - 1; | 
s 617 0415 2 END; 
; 4618 0416 § ‘ 
: 419 0417 2 i Get rid of the ROCB | 
: 420 0418 ! 
: 421 0419 ; DEALLOCATE_RQCB (.ROQCB); 
3: 422 0420 
; 623 0421 1 END; ! End of CANCEL_CLM_HANDLER 
| 
.PSECT $PLITS,NOWRT,NOEXE ,2 | 
73 69 6D 20 4C 45 43 4E 41 43 SF SE 4D 4C 43 O0000 P.AAB: .ASCII \CLM__CANCEL mismatch\ : 
68 63 74 61 6D 0000F : 
010E0014 00014 P.AAA: .LONG 17694740 ; 
00000000° 0001 -ADDRESS P.AAB : 
63 6€ 61 63 20 6F 74 20 74 73 65 75 71 65 72 QOO1C P.AAD: .ASCII \request to cancel not found\<0> 3 
00 64 6€ 75 6F 66 20 74 6F 6E€ 20 6C 6 OfoSe ; 
010E001B 00038 P.AAC: .LONG 17694747 : 
00000000' 0003c “ADDRESS P.AAD : | 
-EXTRN ASCID_INVALIDROCB 
.PSECT $CODE$,NOWRT,2 | 
OOFC 00000 ENTRY CANCEL_CLM_HANDLER, Save R2,R3,R4,R5,R6,R7 ; 0280 | 
5E 04 Ce Bong SUBL2 #4, SP F 
52 08 AC 00 0000 MOVL CLM, R2 3; 0334 
02 02 A2 91 00009 CMPB = 2(R2), #2 ; 
06 13 00000 BEQL 1$ 3 
0000' CF 9F OOODOF PUSHAB P.AAA ; 0336 | 
10 11 hE BRB 2s 3 
4004 fF BB 00015 1$: PUSHR #*M<R2,SP> ; 0340 
0000G CF 3 FB 00019 CALLS #2, CLUSMSG_CONV_CLM_ROCB : 
4, OO1E BLBS R 3 
00006 CF 9F 00021 PUSHAB ASCID_INVALIDRQCB > 0342 
| 


| 


51 


; Routine Size: 205 bytes, 


00006 


000000006 


2E 
64 


oh 


00006 


00006 
00006 
00006 


00006 


04 =A 
CF 02 
55 
29 000000006 ee 
e 50 
4F 
50 01 
25 46498 
? QOOGCF41 
8 55 
HH 
4 
56 3A OA 
54 i] | 
22 5 
56 
AS 
AG 2 OA 
10 
AG 64 AS 
09 
55 01 
A3 52 
E2 
56 
54 64 
dB 
52 @3 
c8 
50 
AS 
OE 55 
0000° CF 
04 AC 
CF 02 
1F 
53 
CF 01 
CF 31 
53 
CF 01 
3 64 
5 gh Be 
A Ah2 
6E 
CF 01 
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ae 93:40:88 DISKSVMSMASTER: cOPCOM. SRCICANCEL. 832: 79 
PUSH 


0025 2$: USHL BUFFER_DESC 
0028 CALLS yr DUMP_LOG_FILE 
002D RET 
O0CE 3$ CLRL «FOUN 
00 MOVL AmAX X_SCOPE, OCD_INDEX 
00 MOVL 
003A 4$ BLBS Oy es. 11$ 
003D CMPL iO8- INDEX, #MIN_SCOPE 
0044 BLSS 10$7 
0046 ASHL = #1 OCD. IND x, RI 
0004A MOVL  OCB_VECT cRI1. OCD 
90050 MOVL  OCD~VEC EToR=4 R1], OCD_COUNT 
0056 5$ BLBS POUND 
00059 TSTL ocd. COUNT 
00058 BLEQ )«6=s«é9S 
0005p MOVZWL 58(OCD), RQST_COUNT 
00061 OVL  60(OCD); RQST"ROCB 
90065 6$ BLBS FOUND, &$ 
0068 TSTL -RQST_COUNT 
0006A BLEQ = 8&$ 
0006C¢ CMPW © 46(R3), 46(RQST_RQCB) 
00071 BNEQ 7$ 
00073 CMPL  100(R3), 100(RQST_ROQCB) 
00078 BNEQ 7$ 
0007A MOVL #1, FOUND 
00070 MOVL OCD, 36(R3) 
00081 BRB 6$ 
00083 7$ DECL  RQST 
00085 MOVL (Rast. Roce). RQST_RQCB 
00088 BRB 6$ 
0008A 8$ DECL  OCD_COUNT 
0008C MOVL (OCB), OCD 
0008F BRB 
00091 9$: DECL  OCD_INDEX 
00093 BRB 
00095 10$:  BLBS FOUND. 11$ 
00098 PUSHAB P.AAC 
0009C PUSHL BUFFER DESC 
0009F CALLS #2, DUMP_LOG_FILE 
O00A4 BRB 12$ 
OO0A6 11%:  PUSHL 
0008 CALLS #1, NOTIFY_LISTED_OPERATORS 
0O00AD PUSHL 
OOAF CALLS #1, LOG_MESSAGE 
OB4 PUSHL 
00B6 ALLS #1 DEALLOCATE RQCB 
0088 REMQUE {RSs ROCB 
0008 OVL 36(R ast To Race) © OCD 
6 OC DECW  58(0CD)~ 
00C5 12$:  PUSHL 8 
000¢7 CALLS #1, DEALLOCATE_RQCB 
000¢C RET 
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“Yo0~600 14-Sep-1 71382 9}: 250: 
> 425 4 1 END 

; 032 8238 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: $CODES 524 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, 

; SPLITS 64 NOVEC,NOWRT, RD *NOEXE. NOSHR, LCL 

5 Library Statistics 

Boe ee eee oe FUE. Symbols -------- Pages 
: File Total Loaded Percent Mapped 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 6 0 1000 
; ~$255$DUA28: COPCOM.OBJJOPCOMLIB.L32;1 633 22 3 4 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CANCEL/OBJ=OBJ$: CANCEL MSRC$:CANCEL/UPDATE=(ENH$: CANCEL) 


Size: 524 code + 64 data bytes 
Run Time 00:13.2 

Sleenaa’ tines 00:47.0 

Lines/CPU Min: 1930 
Lexemes/CPU-Min: 130° 

ponery Used: 132 pays 

Compilation Complete 


N a ae 


! End of CANCEL 
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